home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / info-service / gopher / Unix / GopherTools / logger.pl < prev    next >
Encoding:
Perl Script  |  1993-07-20  |  5.5 KB  |  212 lines
  1. #!/usr/local/bin/perl
  2. #--------------------------------- Logger.pl ----------------------------------
  3. #
  4. #  Perl script which supports:
  5. #    Logfile rotation up to a maximum number of days to be kept....
  6. #    A "guestbook" which tracks sites which hit on you, and how many times
  7. #      they've hit things.
  8. #    A primitive usage database which shows _what's_ getting hit
  9. #    A mailed report of "newbies" sent to the system administrator (ie.
  10. #      new sites which have hit you since the last report).
  11. #
  12. #  Making it work:
  13. #    Does NOT work with static daemon as it and the static daemon are
  14. #      presently set up.
  15. #    Change the parms below to something you find aesthetically pleasing.
  16. #    Put it up as a cron job to be run once per day.
  17. #
  18. #  General disclaimer of competence:
  19. #    I'm new at this (and I bet it shows), so send suggestions for 
  20. #    improvements to:   tom@law.mail.cornell.edu
  21. #
  22. #   "A Perl script is correct if it's halfway readable and gets
  23. #    the job done before your boss fires you"
  24. #                             -- Larry Wall
  25. #  
  26. #----------------------------------------------------------------------------
  27.  
  28. #--------------------------- Site-configured stuff --------------------------
  29. #  These could probably all be done from the command line, but so what.
  30. # 
  31. #  Set this to the full path and name of your gopher log file as you've
  32. #  set it in the -l parameter for gopherd:
  33.  
  34. $logbase="/home/mudhoney/GopherLog70";
  35.  
  36. #  This script will generate files gopherlog.1 .. gopherlog.nn depending
  37. #  on how many days you decide to keep, as in:
  38.  
  39. $keepfor=7;
  40.  
  41. #  Setting $keepfor to "" permits all the logging/reporting to take place
  42. #  but zaps the logfile.
  43. # 
  44. #  Next, pick a path and name for your guestbook (the file which records
  45. #  sites which have hit on you). Leave it empty ("") if you don't want a
  46. #  guestbook.
  47.  
  48. $guestbook="/home/mudhoney/gopherlogs/gopher_guests";
  49.  
  50. #  Next, pick a path and name for the usage file (the one which tracks
  51. #  which of your local choices gets hit on, and how much).
  52.  
  53. $usage="/home/mudhoney/gopherlogs/usage_log";
  54.  
  55. #  Finally, pick a person to receive mailed reports on new sites which hit
  56. #  you (or any other reports you might decide to have this thing generate).
  57. #  You can put more than one person here, separate them with semicolons
  58. #  if you want more than one.
  59.  
  60. $mail_to="lindner";
  61.  
  62. #  OK, down to business.
  63. #  Do file rotation; this has the useful effect that we won't be tallying
  64. #  from something gopher is trying to write to.
  65.  
  66. $i = $keepfor;
  67. LOGFILE:
  68. while ($i>0)
  69.     {
  70.     $i--;
  71.     next LOGFILE unless -e $logbase.".".$i;
  72.     system("mv ".$logbase.".".$i." ".$logbase.".".($i+1));
  73.     }
  74. system("cp ".$logbase." ".$logbase.".1");
  75. unlink $logbase;
  76.  
  77. #  Do the guestbook and usage.
  78. if ($guestbook || $usage)
  79.     {
  80.     open(INFILE,"< $logbase.1");
  81.     if ($guestbook && -T $guestbook)
  82.         {
  83.         open(GUESTBOOK, "< $guestbook") || die "Can't get the guestbook file.";
  84.         #load up the array
  85.         while (<GUESTBOOK>)
  86.             {
  87.             chop($line=$_);
  88.             ($site, $hits)=split(':',$line);
  89.             if (!defined($hits) || ($hits eq ""))
  90.                 {
  91.                 $hits = 1;
  92.                 }
  93.             $guests{$site}=$hits;
  94.             }
  95.         close GUESTBOOK;
  96.         }
  97.     if ($usage && -T $usage)
  98.         {
  99.         open(USAGE, "< $usage") || die "Can't get the usage file.";
  100.         #load up the array
  101.         while (<USAGE>)
  102.             {
  103.             chop($line=$_);
  104.             #The usage line may have more than one colon, 
  105.             #as with mail files from the disctool script,
  106.             # in which case we want the last field.
  107.  
  108.             @flds=split(':',$line);
  109.  
  110.             #the last field is always going to be the number of
  111.             #of hits, everything else should get joined into
  112.             #the key.
  113.             $action=join(':',@flds[0 .. $#flds-1]);
  114.             $activities{$action}=$flds[$#flds];
  115.             }
  116.         close USAGE;
  117.         }
  118.     LINE:
  119.     while(<INFILE>)
  120.         {
  121.         chop($line=$_);
  122.         if(!grep(/Root Connection| \//,$line))
  123.             {
  124.             next LINE; #skip anything but hits on server
  125.             }
  126.         ($prefix, $what)=split(/\s+:\s+/,$line);
  127.         ($dow, $mon, $day, $tm, $yr, $seq, $guest)=split(' ', $prefix);
  128.  
  129.         #don't think my clever and succinct code of the original
  130.         #version works very well.  Hafta go with something less
  131.         #quote elegant unquote.  How elegant is it if it doesn't
  132.         #work?
  133.  
  134.         if ($usage)  #see if anybody's done this before
  135.             {
  136.             if (defined $activities{$what})
  137.                 {
  138.                 $activities{$what}++;
  139.                 }
  140.             else    
  141.                 {
  142.                 $activities{$what}=1;
  143.                 $newactivs{$what}=1;
  144.                 }
  145.             }
  146.         if ($guestbook)
  147.             {
  148.             if (defined $guests{$guest})
  149.                 {
  150.                 $guests{$guest}++;
  151.                 }
  152.             else
  153.                 {
  154.                 $guests{$guest}=1;
  155.                 $newguests{$guest}=1;
  156.                 }
  157.             
  158.             }
  159.         }
  160.     close INFILE;
  161.     }
  162.  
  163. #write out.
  164. if ($usage)
  165.     {
  166.     open(USAGE, "> $usage") || die "Can't open usage file for output";
  167.     foreach $key (sort(keys %activities))
  168.         {
  169.         print USAGE $key,":",$activities{$key},"\n";
  170.         }
  171.     close USAGE;
  172.     }
  173. if ($guestbook)
  174.     {
  175.     open(GUESTBOOK, "> $guestbook") || die "Can't open guestbook file for output";
  176.     foreach $key (sort(keys %guests))
  177.         {
  178.         print GUESTBOOK $key, ":", $guests{$key},"\n";
  179.         }
  180.     close GUESTBOOK;
  181.     }
  182.  
  183. #do the mail thing 
  184. if ($mail_to)
  185.     {
  186.     # make a temp file
  187.     open(MAILIT, ">zzz_logtmp") || die "Can't open mail file";
  188.     print MAILIT "Report from Gopher log manager.\n\n";
  189.     print MAILIT "The following new activities were logged:\n\n";
  190.     foreach $key (sort(keys %newactivs))
  191.         {
  192.         print MAILIT "\t",$key,"\n";
  193.         }
  194.  
  195.     print MAILIT "\n\n The following new guests were logged:\n\n";
  196.     foreach $key (sort(keys %newguests))
  197.         {
  198.         print MAILIT "\t",$key, "\n";
  199.         }
  200.     close MAILIT;
  201.     @recipients=split(';',$mail_to);
  202.     foreach $rcpt(@recipients)
  203.         {
  204.         system "mail -s DailyGopherAbstract ".$rcpt." < zzz_logtmp";
  205.         }
  206.     unlink "zzz_logtmp";
  207.     }
  208.  
  209. #cleanup if needed.
  210. unlink $logbase.".1" unless $keepfor;
  211.  
  212.